(FILECREATED "10-FEB-83 13:56:46" {PHYLUM}<GABRIEL>DERIV.;2 2015   

      changes to:  (FNS DER1 DERIV RUN)
		   (VARS DERIVCOMS)

      previous date: "10-FEB-83 13:50:32" {PHYLUM}<GABRIEL>DERIV.;1)


(* Copyright (c) 1983 by RPG)

(PRETTYCOMPRINT DERIVCOMS)

(RPAQQ DERIVCOMS ((FNS DER1 DERIV RUN)
		  (BLOCKS 
		   (DERIVBLOCK DER1 DERIV RUN
			       (ENTRIES DERIV RUN)))))
(DEFINEQ

(DER1
  (LAMBDA (A)                                                (* JonL "10-FEB-83 13:56")
    (LIST (QUOTE QUOTIENT)
	  (DERIV A)
	  A)))

(DERIV
  (LAMBDA (A)                                                (* JonL "10-FEB-83 13:56")
    (COND
      ((ATOM A)
	(COND
	  ((EQ A (QUOTE X))
	    1)
	  (T 0)))
      ((EQ (QUOTE PLUS)
	   (CAR A))
	(CONS (QUOTE PLUS)
	      (MAPCAR (CDR A)
		      (QUOTE DERIV))))
      ((EQ (QUOTE DIFFERENCE)
	   (CAR A))
	(CONS (QUOTE DIFFERENCE)
	      (MAPCAR (CDR A)
		      (QUOTE DERIV))))
      ((EQ (QUOTE TIMES)
	   (CAR A))
	(LIST (QUOTE TIMES)
	      A
	      (CONS (QUOTE PLUS)
		    (MAPCAR (CDR A)
			    (QUOTE DER1)))))
      ((EQ (QUOTE QUOTIENT)
	   (CAR A))
	(LIST (QUOTE DIFFERENCE)
	      (LIST (QUOTE QUOTIENT)
		    (DERIV (CADR A))
		    (CADDR A))
	      (LIST (QUOTE QUOTIENT)
		    (CADR A)
		    (LIST (QUOTE TIMES)
			  (CADDR A)
			  (CADDR A)
			  (DERIV (CADDR A))))))
      (T (QUOTE ERROR)))))

(RUN
  (LAMBDA NIL                                                (* JonL "10-FEB-83 13:56")
    (for I to 1000
       do (DERIV (QUOTE (PLUS (TIMES 3 X X)
			      (TIMES A X X)
			      (TIMES B X)
			      5)))
	  (DERIV (QUOTE (PLUS (TIMES 3 X X)
			      (TIMES A X X)
			      (TIMES B X)
			      5)))
	  (DERIV (QUOTE (PLUS (TIMES 3 X X)
			      (TIMES A X X)
			      (TIMES B X)
			      5)))
	  (DERIV (QUOTE (PLUS (TIMES 3 X X)
			      (TIMES A X X)
			      (TIMES B X)
			      5)))
	  (DERIV (QUOTE (PLUS (TIMES 3 X X)
			      (TIMES A X X)
			      (TIMES B X)
			      5))))))
)
(PUTPROPS DERIV COPYRIGHT ("RPG" 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (311 1953 (DER1 321 . 474) (DERIV 476 . 1313) (RUN 1315 . 1951)))))
STOP